home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_19_(11-1984).d64 / run me ii (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  48 lines
  1. 10 REM CBM USERS OF NORMAN DISK LIBRARY
  2. 20 REM WRITTEN BY DAVID TINGLER
  3. 30 POKE53280,11:POKE53281,0:POKE646,1:PRINTCHR$(14):PRINTCHR$(147)
  4. 40 PRINTTAB(7)"[195]OMMODORE [213]SERS OF [206]ORMAN"
  5. 50 PRINTTAB(15);"[208][207] [194]OX 573"
  6. 60 PRINTTAB(11);"[206]ORMAN, [207][203]  73070"
  7. 70 PRINTTAB(0)"[198]OR INFORMATION CONTACT:"
  8. 80 PRINT"[195]HAIRMAN:   [205]ATT [200]AGER (873-8187)"
  9. 90 PRINT"[211]EC/[212]REAS:  [210]ICHARD [193]RMSTRONG (321-0067)"
  10. 100 PRINT"NEWSLETTER: [203]IM [208]UGH (364-0248)"
  11. 110 PRINT"[204]IBRARY:    [196]AVID [212]INGLER (360-6752"
  12. 120 PRINTTAB(12)"[208]AUL [194]URKE (239-2249)"
  13. 130 GOSUB450
  14. 140 PRINTCHR$(147):PRINTTAB(3)"[208]UBLIC DOMAIN SOFTWARE IS AVAILABLE"
  15. 150 PRINT"TO ALL CLUB MEMBERS FOR A SMALL COPYING"
  16. 160 PRINT"FEE.  [212]HERE IS NO CHARGE TO MEMBERS WHO"
  17. 170 PRINT"PROVIDE NEW PROGRAMS TO THE LIBRARY."
  18. 180 PRINTTAB(3)"[215]E NEED YOUR PROGRAMS SO WE CAN BUILD";
  19. 190 PRINT"THE BEST CLUB LIBRARY AROUND!"
  20. 200 PRINTTAB(3)"[193]LL SOFTWARE CONTAINED IN THE CLUB"
  21. 210 PRINT"LIBRARY IS BELIEVED TO BE IN THE PUBLIC"
  22. 220 PRINT"DOMAIN.  [208]LEASE CONTACT THE LIBRARIAN"
  23. 230 PRINT"IF YOU HAVE ANY INFORMATION TO THE"
  24. 240 PRINT"CONTRARY."
  25. 250 PRINTTAB(3)"[195]OMMODORE IS A REGISTERED TRADEMARK"
  26. 260 PRINT"OF [195]OMMODORE [194]USINESS [205]ACHINES, [201]NC."
  27. 270 GOSUB450
  28. 280 PRINTCHR$(147)
  29. 290 PRINT"PRESS:
  30. 300 [153][163]3)"<(null)>  TO READ AGAIN."
  31. 310 [153][163]3)"<STR$>  TO READ THE DISK DOCUMENTATION."
  32. 320 [153][163]3)"<(null)>  TO RUN THE DISK MENU."
  33. 330 [153][163]3)"<VAL>  TO EXIT PROGRAM."
  34. 340 [161]C$:[139]C$[178]"R"[167]10
  35. 350 [139]C$[178]"D"[167]390
  36. 360 [139]C$[178]"M"[167]430
  37. 370 [139]C$[178]"E"[167]440
  38. 380 [137]340
  39. 390 [159]2,8,2,"MONTHLY DISK DOC"
  40. 400 [132]2,P$:[139]ST [175]64[167]420
  41. 410 [153]P$
  42. 420 [137]280
  43. 430 [147]"MENU",8:[162]
  44. 440 [128]
  45. 450 [153][163]3)"(PRESS <SPACE BAR> TO CONTINUE)"
  46. 460 [161]A$:[139]A$[179][177][199](32)[167]460
  47. 470 [142]
  48.